home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / varia / hippoplayer / install < prev    next >
Text File  |  1997-02-09  |  8KB  |  315 lines
  1. ; Installer script for HippoPlayer.
  2. ;
  3. ; 30.11.1996 by K-P Koljonen
  4. ;
  5.  
  6.  
  7. (complete 0)
  8.  
  9. (delete "s:hip-script")
  10.  
  11. (message 
  12.   "\n\nHippoPlayer is shareware.\n\nPlease consider registering!"
  13.   "\n\nSee the doc for more info."
  14. ;  (ALL)
  15. )
  16.  
  17. (complete 3)
  18.  
  19. (set #DEST0
  20.   (askdir
  21.     (prompt "Where do you want to install HippoPlayer? A drawer will be created there.")
  22.     (help (cat @askdir-help)
  23.     )
  24.     (default "Work:")
  25.   )
  26. )
  27.  
  28. (complete 6)
  29.  
  30. (set #DEST (tackon #DEST0 "HippoPlayer"))
  31. (makedir #DEST (infos))
  32.  
  33. (copyfiles (dest #DEST) (source "HiP"))
  34. (copyfiles (dest #DEST) (source "HiP.info"))
  35. (copyfiles (dest #DEST) (source "Readme!"))
  36. (copyfiles (dest #DEST) (source "Readme!.info"))
  37. (copyfiles (dest #DEST) (source "RegisteredUsers"))
  38. (copyfiles (dest #DEST) (source "RegisteredUsers.info"))
  39.  
  40. (complete 10)
  41.  
  42. ; ******* Install icon
  43.  
  44. (run "c:run SYS:Utilities/MultiView Icons/Overview.iff")
  45.  
  46. (set #ICONS
  47.     (askchoice
  48.     (prompt "Choose an icon for HippoPlayer")
  49.     (help (cat @askchoice-help))
  50.     (default 0)
  51.     (choices
  52.         "#1: 4 colors"
  53.         "#2: 4 colors"
  54.         "#3: MagicWB 8 colors"
  55.         "#4: MagicWB 8 colors"
  56.         "#5: MagicWB 8 colors"
  57.         "#6: MagicWB 8 colors"
  58.         "#7: MagicWB 8 colors"
  59.         "#8: NewIcons"
  60.         )
  61.     )
  62. )
  63.  
  64. (complete 15)
  65.  
  66. (if (= #ICONS 1) (copyfiles (source "Icons/HiP2.info") (dest #DEST) (newname "HiP.info") (optional "nofail")) )
  67. (if (= #ICONS 2) (copyfiles (source "Icons/HiP_MWB.info") (dest #DEST) (newname "HiP.info") (optional "nofail")) )
  68. (if (= #ICONS 3) (copyfiles (source "Icons/HiP_MWB2.info") (dest #DEST) (newname "HiP.info") (optional "nofail")) )
  69. (if (= #ICONS 4) (copyfiles (source "Icons/HiP_MWB3.info") (dest #DEST) (newname "HiP.info") (optional "nofail")) )
  70. (if (= #ICONS 5) (copyfiles (source "Icons/HiP_MWB4.info") (dest #DEST) (newname "HiP.info") (optional "nofail")) )
  71. (if (= #ICONS 6) (copyfiles (source "Icons/HiP_MWB5.info") (dest #DEST) (newname "HiP.info") (optional "nofail")) )
  72. (if (= #ICONS 7) (copyfiles (source "Icons/HiP_NI.info") (dest #DEST) (newname "HiP.info") (optional "nofail")) )
  73.  
  74. ; ******* Reqtools.library
  75.  
  76. (complete 20)
  77.  
  78. (if (= (exists "Libs:reqtools.library") 0)
  79.   (copylib
  80.     (source "Libs/ReqTools.library")
  81.     (dest "Libs:")
  82.     (confirm)
  83.     (prompt "\n\nInstall reqtools.library?\nOnly do so if you already don't have it installed!")
  84.     (help
  85.       (cat
  86.         "Reqtools.library is needed for requesters in HippoPlayer."
  87.         " Library version for kickstart 1.2/1.3 is included."
  88.         @copylib-help
  89.       )
  90.     )
  91.   )
  92. )
  93.  
  94. ; ******* Group
  95.  
  96. (complete 30)
  97.  
  98. (copyfiles
  99.   (source "")
  100.   (dest
  101.     (askdir
  102.       (prompt
  103.         (cat
  104.           "Select destination directory for HippoPlayer.group"
  105.         )
  106.       )
  107.       (help
  108.         (cat
  109.       "This file contains some play routines for different music"
  110.       " formats. It is adviced to install it."
  111.           " The place of HippoPlayer.group can also be defined"
  112.           " later in HippoPlayer's preferences.\n\n"
  113.           @askdir-help
  114.         )
  115.       )
  116.       (default "S:")
  117.     )
  118.   )
  119.   (choices
  120.     "HippoPlayer.group"
  121.   )
  122. )
  123.  
  124. ; ******* Player libraries
  125.  
  126. (complete 32)
  127.  
  128. (set #LI 0)
  129.  
  130. (if (=
  131.   (askbool
  132.     (prompt (cat
  133.           "\n\nDo you want to install the player libraries?\n\n"
  134.           "HiP needs some external player libraries to be " 
  135.           "able to play the following music formats:\n"
  136.           "MED, OctaMED, OctaMED SoundStudio, PSID and MusiclineEditor."
  137.         )
  138.     )
  139.     (help
  140.       (cat "HiP needs some external player libraries to be " 
  141.            "able to play some music formats.")
  142.     )
  143.   ) 1)
  144.   (set #LI 1)
  145. )
  146.  
  147. (complete 35)
  148.  
  149. (if (= #LI 1)
  150. (copylib
  151.   (source "Libs/medplayer.library")
  152.   (dest "Libs:")
  153.   (confirm)
  154.   (prompt "\nInstall medplayer.library V7?\n\n"
  155.           "Required for playing 1-4 channel MED/OctaMED/OctaMED SoundStudio modules. The version number below is probably wrong!"
  156.   (help (cat "The version number Installer shows is wrong!\n\n" @copylib-help ))
  157. )
  158. ))
  159.  
  160. (complete 37)
  161.  
  162. (if (= #LI 1)
  163. (copylib
  164.   (source "Libs/octaplayer.library")
  165.   (dest "Libs:")
  166.   (confirm)
  167.   (prompt "\nInstall octaplayer.library V7?\n\n"
  168.           "Required for playing 5-8 channel MED/OctaMED/OctaMED SoundStudio modules. The version number below is probably wrong!"
  169.   (help (cat "The version number Installer shows is wrong!\n\n" @copylib-help ))
  170. )
  171. ))
  172.  
  173. (complete 39)
  174.  
  175. (if (= #LI 1)
  176. (copylib
  177.   (source "Libs/octamixplayer.library")  
  178.   (dest "Libs:")
  179.   (confirm)
  180.   (prompt "\nInstall octaplayer.library V7?\n\n"
  181.           "Required for playing 1-64 channel OctaMED SoundStudio modules. The version number below is probably wrong!"
  182.   (help (cat "The version number Installer shows is wrong!\n\n" @copylib-help ))
  183. )
  184. ))
  185.  
  186. (complete 41)
  187.  
  188. (if (= #LI 1)
  189. (copylib
  190.   (source "Libs/PlaySID.library")  
  191.   (dest "Libs:")
  192.   (confirm)
  193.   (prompt "\nInstall PlaySID.library V1.1?\n\n"
  194.           "Required for playing PSID tunes (those from the C-64)."
  195.   (help (cat @copylib-help ))
  196. )
  197. ))
  198.  
  199. (complete 43)
  200.  
  201. (if (= #LI 1)
  202. (copylib
  203.   (source "Libs/mline.library")  
  204.   (dest "Libs:")
  205.   (confirm)
  206.   (prompt "\nInstall mline.library V1.1?\n\n"
  207.           "Required for playing MusiclineEditor modules."
  208.   (help (cat @copylib-help ))
  209. )
  210. ))
  211.  
  212. ; ******* PS3M settings
  213.  
  214. (complete 45)
  215.  
  216. (if (exists "S:HippoPlayer.PS3M")
  217.   (if (=
  218.     (askbool
  219.       (prompt (cat
  220.             "\n\n\n\nDo you want to overwrite S:HippoPlayer.PS3M?"
  221.           )
  222.       )
  223.       (help
  224.         (cat "Don't overwrite if you want to keep your PS3M settings." 
  225.          " Do overwrite if you're updating from v2.12 or older.")
  226.       )
  227.     ) 1)
  228.     (copyfiles
  229.       (source "HippoPlayer.PS3M")
  230.       (dest "S:")
  231.     )
  232.   )
  233. )
  234.  
  235.  
  236. (complete 50)
  237.  
  238.  
  239. ; ******* Select stuff to copy
  240.  
  241. (set #NUM
  242.     (askoptions 
  243.     (prompt "Which of these do you want to install?")
  244.     (help (cat
  245.          "Documentation: Docs for HippoPlayer in text or guide format.\n\n" 
  246.          "ARexx scripts: Various ARexx scripts for HippoPlayer.\n\n"
  247.          "Icons: Different WB icons for HippoPlayer.\n\n"
  248.                  "Toolmanager brush: A brush for use with ToolManager for example.\n\n"
  249.                  "External scopes: A couple of external scopes which must be started from Shell or WB.\n\n"
  250.                  "Support stuff: Some little tools, including the useful 14-bit calibration program.\n\n"
  251.          @askoptions-help))
  252.     (default %100001)
  253.     (choices
  254.         "Documentation"
  255.         "ARexx scripts"
  256.         "Icons"
  257.         "Toolmanager brush"
  258.         "External scopes"
  259.         "Support stuff"
  260.         )
  261.     )
  262. )
  263.  
  264. (complete 60)
  265.  
  266. ; ******* Copy docs
  267.  
  268. (if (IN #NUM 0)
  269.    (set #DOC
  270.     (askoptions
  271.       (prompt "Select type of documentation")
  272.       (help (cat @askoptions-help))
  273.       (default 1)
  274.       (choices "AmigaGuide" "Text")
  275.       )
  276.    )
  277. )
  278.  
  279. (if (IN #DOC 0) (copyfiles (source "") (dest #DEST) (pattern "HiP.guide#?")))    
  280. (if (IN #DOC 1) (copyfiles (source "") (dest #DEST) (pattern "HiP.doc#?")))    
  281.  
  282. ; ******* ARexx
  283.  
  284. (complete 65)
  285. (if (IN #NUM 1)    (makedir (tackon #DEST "ARexx") (infos)))
  286. (if (IN #NUM 1)    (copyfiles (source "ARexx/") (dest (tackon #DEST "ARexx")) (all)))
  287.  
  288. ; ******* Icons
  289.  
  290. (complete 70)
  291. (if (IN #NUM 2) (makedir (tackon #DEST "Icons") (infos)))
  292. (if (IN #NUM 2)    (copyfiles (source "Icons/") (dest (tackon #DEST "Icons")) (all)))
  293.  
  294. ; ******* Toolmanager brushes
  295.  
  296. (complete 80)
  297. (if (IN #NUM 3)    (makedir (tackon #DEST "Brushes") (infos)))
  298. (if (IN #NUM 3)    (copyfiles (source "Brushes/") (dest (tackon #DEST "Brushes")) (all)))
  299.  
  300. ; ******* External scopes
  301.  
  302. (complete 90)
  303. (if (IN #NUM 4)    (makedir (tackon #DEST "Scopes") (infos)))
  304. (if (IN #NUM 4)    (copyfiles (source "Scopes/") (dest (tackon #DEST "Scopes")) (all)))
  305.  
  306. ; ******* Support stuff
  307.  
  308. (complete 95)
  309. (if (IN #NUM 5)    (makedir (tackon #DEST "Support") (infos)))
  310. (if (IN #NUM 5)    (copyfiles (source "Support/") (dest (tackon #DEST "Support")) (all)))
  311.  
  312. ; ******
  313.  
  314. (complete 100)
  315.